function extract_spec(filename)
[~,fn,~]=fileparts(filename);

[audioIn,fs]=audioread(filename)
    % Extract an auditory spectrogram from the audio
spec = extractAuditorySpectrogram(audioIn,fs);

format short
writematrix( spec,fn+"-spec.txt","delimiter","tab");

end